home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / hisoft_website / support / update-fci.lha / Login.IPDial next >
Text File  |  1996-07-04  |  2KB  |  107 lines
  1. ;$VER: Login.IPDial 1.04 (21.5.96)
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;
  4. ;   Send initialization commands
  5.  
  6. ResetModem:
  7.     SEND "ATZ\r"
  8.  
  9.     WAIT TIMEOUT=5 "NO CARRIER" "OK"
  10.     ON STATUS GOTO TIMEOUT NoCarrier
  11.  
  12. Init:
  13.  
  14.     Echo "Sending Init string...\n"
  15.     SEND "$INITSTRING\r"
  16. ;Wait for the modems ok; break, if timeout
  17.     WAIT TIMEOUT=5 "OK"
  18.     ON STATUS GOTO INITFAIL
  19.  
  20. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  21. ;
  22. ;   Dialing ...
  23.  
  24. Dial:
  25. ;    SEND Phone the phone number
  26.     Echo "\nDialing...\n"
  27.     SEND "$PHONENUMBER\r"
  28.     WAIT TIMEOUT=60 "$LOGINWAIT" "BUSY" "DELAYED"
  29.     ON STATUS GOTO TIMEOUT Login
  30.  
  31.  
  32. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  33. ;
  34. ;   If Remote is busy. delay of 5 secs and dial again.
  35.  
  36.     Echo "Remote busy, delaying ...\n"
  37.     DELAY 5
  38.     Echo "Trying again.\n"
  39.     GOTO Init
  40.  
  41.  
  42. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  43. ;
  44. ;   Okay, we are connected. Login into the host.
  45.  
  46. Login:
  47.     
  48.     SEND "$NODENAME\r"
  49.     WAIT TIMEOUT=10 "$PASSWAIT"
  50.     ON STATUS GOTO LOGINFAIL
  51.     
  52.     SEND "$PASSWORD\r"
  53.     WAIT TIMEOUT=10 "$PROTOCOLWAIT"
  54.     ON STATUS GOTO LOGINFAIL
  55.     
  56.     SEND "$NetScriptProtocol\r"
  57.     
  58.     DELAY 5
  59.     WAIT TIMEOUT=2 ""
  60.     ON STATUS GOTO LOGINFAIL
  61.     SCAN "%{Annex address is %} %[slip0IPLocal%]%%(.%)" GLOBAL
  62.     SCAN "%{Your address is %} %[slip0IPLocal%]%%(.%)" GLOBAL
  63.     ECHO "Slip connection ready, starting AmiTCP/IP.\n"
  64.     EXIT 0
  65.  
  66.  
  67. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  68. ;
  69. ;   Error message: Timeout
  70.  
  71. TIMEOUT:
  72.     ECHO "\nTimed Out. Hanging up and redialing...\n"
  73.     SEND "+"
  74.     DELAY 0 100
  75.     SEND "+"
  76.     DELAY 0 100
  77.     SEND "+"
  78.     WAIT TIMEOUT=5 "OK"
  79.     SEND "ATH\r"
  80.     WAIT TIMEOUT=2 "OK"
  81.     ON STATUS GOTO Init ResetModem
  82.  
  83. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  84. ;
  85. ;   Error message: NO CARRIER
  86.  
  87. NoCarrier:
  88.     ECHO "\nLine Busy. Redialing...\n"
  89.     GOTO Init
  90.  
  91. INITFAIL:
  92.     ECHO "The init string failed please check string.\nExiting!\n"
  93.     DELAY 5
  94.     EXIT 2
  95. LOGINFAIL:
  96.     ECHO "An error occured during login check your password and nodename.\nExiting!\n"
  97.     SEND "+"
  98.     DELAY 0 100
  99.     SEND "+"
  100.     DELAY 0 100
  101.     SEND "+"
  102.     WAIT TIMEOUT=5 "OK"
  103.     SEND "ATH\r"
  104.     WAIT TIMEOUT=2 "OK"
  105.     DELAY 5
  106.     EXIT 3
  107.